home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 25 / MacFormat n. 25 (Spain) / MacFormat 25.bin / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00060.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  2.5 KB  |  117 lines
  1. on startMovie
  2.   global loadNext, animSpeed, waitTime1, subPageWait, mainPageWait, pgTurnSpeed, loopOnce, flashLoop, flashTime, playMode
  3.   if the centerStage <> 1 then
  4.     set the centerStage to 1
  5.   end if
  6.   updateStage()
  7.   cursor(200)
  8.   if the platform = "Macintosh,68K" then
  9.     set loopOnce to 0
  10.     set pgTurnSpeed to 2
  11.     set loadNext to 0
  12.     set animSpeed to 6
  13.     set waitTime1 to 45
  14.     set subPageWait to 90
  15.     set mainPageWait to 90
  16.     set flashLoop to 0
  17.     set flashTime to 0
  18.   else
  19.     if the platform = "Macintosh,PowerPc" then
  20.       set loopOnce to 0
  21.       set pgTurnSpeed to 4
  22.       set loadNext to 0
  23.       set animSpeed to 8
  24.       set waitTime1 to 45
  25.       set subPageWait to 90
  26.       set mainPageWait to 120
  27.       set flashLoop to 0
  28.       set flashTime to 0
  29.     end if
  30.   end if
  31.   preLoad(1, 10)
  32.   set the purgePriority of member "Pam1-8b" to 0
  33.   set the keyDownScript to "keyWatcher"
  34. end
  35.  
  36. on printCast whatMember
  37.   set doc to new(xtra("PrintoMatic_Lite"))
  38.   if not objectp(doc) then
  39.     exit
  40.   end if
  41.   setMargins(doc, rect(36, 36, 36, 36))
  42.   setDocumentName(doc, "Print Artist Sample Art")
  43.   append(doc, member whatMember)
  44.   if doJobSetup(doc) then
  45.     print(doc)
  46.   end if
  47.   set doc to 0
  48. end
  49.  
  50. on printCard whatMember
  51.   set doc to new(xtra("PrintoMatic_Lite"))
  52.   if not objectp(doc) then
  53.     exit
  54.   end if
  55.   setMargins(doc, rect(28, 36, 36, 36))
  56.   setDocumentName(doc, "Print Artist Sample Art")
  57.   append(doc, member whatMember)
  58.   if doJobSetup(doc) then
  59.     print(doc)
  60.   end if
  61.   set doc to 0
  62. end
  63.  
  64. on keyWatcher
  65.   global playMode, oldMode
  66.   if the key = "r" then
  67.     repeat with x = 1 to 30
  68.       puppetSprite(x, 0)
  69.     end repeat
  70.     unLoadCast()
  71.     go(1)
  72.   end if
  73.   if the key = "l" then
  74.     set playMode to "W31MemLow"
  75.     beep()
  76.   end if
  77.   if the key = "h" then
  78.     set playMode to "W95MemOK"
  79.     beep()
  80.   end if
  81.   if the key = "1" then
  82.     repeat with x = 1 to 30
  83.       puppetSprite(x, 0)
  84.     end repeat
  85.     unLoadCast()
  86.     go("turn1")
  87.   end if
  88.   if the key = "2" then
  89.     repeat with x = 1 to 30
  90.       puppetSprite(x, 0)
  91.     end repeat
  92.     unLoadCast()
  93.     go("scene2")
  94.   end if
  95.   if the key = "3" then
  96.     repeat with x = 1 to 30
  97.       puppetSprite(x, 0)
  98.     end repeat
  99.     unLoadCast()
  100.     go("s3a")
  101.   end if
  102.   if the key = "4" then
  103.     repeat with x = 1 to 30
  104.       puppetSprite(x, 0)
  105.     end repeat
  106.     unLoadCast()
  107.     go("s4turn1")
  108.   end if
  109.   if the key = "5" then
  110.     repeat with x = 1 to 30
  111.       puppetSprite(x, 0)
  112.     end repeat
  113.     unLoadCast()
  114.     go("s5turn")
  115.   end if
  116. end
  117.